procedure TForm1.Button1Click(Sender: TObject);
begin
  with TStringGrid(DBGrid1) do
  begin
    Row := 2;
    Col := 5;
    SetFocus;
  end;
end;